home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ ASP Options General 1.xpl < prev    next >
Text File  |  2000-08-06  |  3KB  |  86 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH"="Internet\Internet Information Server\ASP Settings"
  5. "NAME"="General Settings (1)"
  6. "VERSION"="1.11"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Allow Session (send Cookie "ASPSessionID")"
  9. "TEXT 2"="Allow access to parent directories"
  10. "TEXT 3"="Activate buffering for all pages"
  11. "TEXT 4"="Add error-requests to eventlog"
  12. "TEXT 5"="Send detailed error-information to client"
  13. "DESCRIPTION 1"="Allow Session: By default, ASP creates as session object for every user of an ASP-Application. This requires that a cookie (ASPSessionID) is sent to the user. WARNING! If this option is disabled, it is no longer possible to use the object "Session" or use the "Session_On**" events!"
  14. "DESCRIPTION 2"="Allow access to parent directories: If this option is enabled, an ASP script can access paths above the current position (for example with the "#INCLUDE FILE" command). If it's disabled, this is not possible."
  15. "DESCRIPTION 3"="Activate buffering: By default, ASP buffers only pages, that have requested this ("Response.Buffer=True"). If this option is activated, all pages are buffered."
  16. "DESCRIPTION 4"="Add error-requests: If this option is enabled, requests that caused errors (404 for example) are written to the eventlog."
  17. "DESCRIPTION 5"="Send detailed error-information: If an error occurs in an ASP-script and this option is enabled, detailed information (like filename, linenumber and so on) are send to the client. If disabled, the client is only informed that something went wrong."
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"=" "
  22.  
  23.  
  24.  
  25. sP="HKLM\System\CurrentControlSet\Services\W3SVC\ASP\Parameters\"
  26. vASS="AllowSessionState" 'DW
  27. vBFO="BufferingOn" 'DW
  28. vEPP="EnableParentPaths" 'DW
  29. vLER="LogErrorRequests" 'DW
  30. vSEB="ScriptErrorsSentToBrowser" 'DW
  31.  
  32. Sub Plugin_Initialize 
  33.  If RegPathExists(sP) then
  34.   If RegReadValue(sp&vass)=1 then SetUIElement 1,true
  35.   If RegReadValue(sp&vepp)=1 then SetUIElement 2,true
  36.   If RegReadValue(sp&vbfo)=1 then SetUIElement 3,true
  37.   If RegReadValue(sp&vler)=1 then SetUIElement 4,true
  38.   If RegReadValue(sp&vseb)=1 then SetUIElement 5,true
  39.  else
  40.   Disable
  41.  end if
  42. End Sub
  43.  
  44. Sub Plugin_CheckData(ElementIndex)
  45. End Sub
  46.  
  47. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  48.  b=GetUIElement(1)
  49.  if b=true then
  50.   Call RegWriteValue(sp&vass,1,2)
  51.  else
  52.   Call RegWriteValue(sp&vass,0,2)
  53.  end if
  54.  
  55.  b=GetUIElement(2)
  56.  if b=true then
  57.   Call RegWriteValue(sp&vepp,1,2)
  58.  else
  59.   Call RegWriteValue(sp&vepp,0,2)
  60.  end if
  61.  
  62.  b=GetUIElement(3)
  63.  if b=true then
  64.   Call RegWriteValue(sp&vbfo,1,2)
  65.  else
  66.   Call RegWriteValue(sp&vbfo,0,2)
  67.  end if
  68.  
  69.  b=GetUIElement(4)
  70.  if b=true then
  71.   Call RegWriteValue(sp&vler,1,2)
  72.  else
  73.   Call RegWriteValue(sp&vler,0,2)
  74.  end if
  75.  
  76.  b=GetUIElement(5)
  77.  if b=true then
  78.   Call RegWriteValue(sp&vseb,1,2)
  79.  else
  80.   Call RegWriteValue(sp&vseb,0,2)
  81.  end if
  82. End Sub
  83.  
  84. Sub Plugin_Terminate 
  85. End Sub
  86.